home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / 3rd Parties / Software / Apple / AMT 2.1 New Features Demo / SOURCES / oIntro_Two_18.k < prev    next >
Encoding:
Text File  |  1996-12-21  |  1.7 KB  |  101 lines  |  [TEXT/MPS ]
  1. object oIntro_Two_18 is cDefaultContainer
  2. with
  3.     Binder is oBinder;
  4.     Label is -1;
  5.     Items is [
  6.         oKeyboard_Volume__18_8,
  7.         oOP_SENS_PIC_18_1,
  8.         oSound_Trigger_18_3
  9.     ];
  10. end;
  11.  
  12.  
  13. object oKeyboard_Volume__18_8 is cKeyboardHandler
  14. with
  15.     Behavior is cDefaultBehavior
  16.     has
  17.         KeyDown(theTarget, theKey)
  18.         use
  19.             KeyMatch;
  20.             
  21.             do
  22.                 KeyMatch := theKey = '-';
  23.                 if KeyMatch then
  24.                     theTarget.DoDefaultMethod := false;
  25.                 
  26.                     oSoundVolume.StepIndexBy(-1);
  27.                 end;
  28.                 KeyMatch := theKey = '=';
  29.                 if KeyMatch then
  30.                     theTarget.DoDefaultMethod := false;
  31.                 
  32.                     oSoundVolume.StepIndexBy(1);
  33.                 end;
  34.                 KeyMatch := theKey = '+';
  35.                 if KeyMatch then
  36.                     theTarget.DoDefaultMethod := false;
  37.                 
  38.                     oSoundVolume.StepIndexBy(1);
  39.                 end;
  40.             end;
  41.         
  42.     with
  43.         Enabled is true; Shown is false; 
  44.         X is 30; Y is 24; Width is 0; Height is 0;
  45.     end;
  46. end;
  47.  
  48.  
  49. object oOP_SENS_PIC_18_1 is cPictureHandler
  50. with
  51.     Duration is 180;
  52.     Supplier is oOP_SENS_PIC;
  53.     Behavior is cDefaultBehavior
  54.     has
  55.         Onscreen(theTarget)
  56.             do
  57.                 theTarget.Run(true);
  58.             end;
  59.         
  60.         Finished(theTarget)
  61.             do
  62.                 oBinder.SetTransition(oDissolve, 30);
  63.                 oBinder.Goto(oMain_Menu_1);
  64.             end;
  65.         
  66.     with
  67.         Enabled is false; Shown is true; 
  68.         X is 0; Y is 0; Width is 640; Height is 480;
  69.     end;
  70. end;
  71.  
  72.  
  73. object oSound_Trigger_18_3 is cTimerHandler
  74. with
  75.     TimerShown is false;
  76.     Duration is 600;
  77.     Ageing is 30;
  78.     ResetOnInteraction is false;
  79.     Behavior is cDefaultBehavior
  80.     has
  81.         Offscreen(theTarget)
  82.             do
  83.                 theTarget.Run(true);
  84.             end;
  85.         
  86.         OnTime(theTarget, theTime)
  87.             do
  88.                 if theTime = -1 then
  89.                     theTarget.RegisterOnTime(120);
  90.                 else if theTime = 120 then
  91.                     oAmbientSound.Start(oOP_MUSC_WAV);
  92.                 end;
  93.             end;
  94.         
  95.     with
  96.         Enabled is true; Shown is true; 
  97.         X is 0; Y is 0; Width is 640; Height is 480;
  98.     end;
  99. end;
  100.  
  101.